#1.1 
#1
setwd("diretrio") #mudar o diretrio
#2
load("script")
source( "script", echo=TRUE, print.eval=TRUE ) 
#ou abrir o arquivo RData 


#1.2
#1
rm(list=ls())
#2
source("script")


#1.3
#1
help(LETTERS)
LETTERS: 26 letras do alfabeto romano em caixa alta
HELP(letters) 
letters: 26 letras do alfabeto romano em caixa baixa

#2
class(LETTERS)
[1] "character"
Class(letters)
[1] "character"

#3
letters <-as.factor (letters)

LETTERS <-as.factor (LETTERS)